<%
Dim conn,start_time
start_time=timer()
Set conn = Server.CreateObject("ADODB.CONNECTION")
db = "DRIVER=SQLite3 ODBC Driver;Database="&Server.MapPath("data\cd.db3")
' db = "DRIVER=SQLite3 ODBC (UTF-8) Driver;Database=e:\edi\data\cd.db3"
conn.Open db
%>
